'*********** Communication CommSettings Configuration Form
'Copyright (c) 1991, Crescent Software
DefInt A-Z
Dim Shared NewPort 'temp config CommSettings
Dim Shared NewBaud$, NewParity$
Dim Shared NewData$, NewStop$
Dim Shared NewShake
Declare Function WritePrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lplFileName As String) As Integer
Declare Function GetPrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
Declare Function GetPrivateProfileInt Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Integer, ByVal lpFileName As String) As Integer
'
'--- 1200 baud option button
'
Sub Baud12_Click ()
NewBaud$ = "1200"
End Sub
'set new baud to 19200
Sub Baud192_Click ()
NewBaud$ = "19200"
End Sub
'
'--- 2400 baud option button
'
Sub Baud24_Click ()
NewBaud$ = "2400"
End Sub
'
'--- 300 baud option button
'
Sub Baud3_Click ()
NewBaud$ = "300"
End Sub
Sub Baud384_Click ()
NewBaud$ = "38400"
End Sub
'
'--- 4800 baud option button
'
Sub Baud48_Click ()
NewBaud$ = "4800"
End Sub
Sub Baud56_Click ()
NewBaud$ = "56800"
End Sub
'
'--- 600 baud option button
'
Sub Baud6_Click ()
NewBaud$ = "600"
End Sub
'
'--- 9600 baud option button
'
Sub Baud96_Click ()
NewBaud$ = "9600"
End Sub
'
'--- Cancel button actions
'
Sub CancelButton_Click ()
Unload ConfigScrn
End Sub
'
'--- 7 data bits option button
'
Sub Data7_Click ()
NewData$ = "7"
End Sub
'
'--- 8 data bits option button
'
Sub Data8_Click ()
NewData$ = "8"
End Sub
Sub DialTone_Change ()
If DialTone.Text = "" And ModemIString.Text = "" Then NoModem.Value = 1